home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / parallax / ibm_pc_d.exe / SAMPLES / PRIM.P < prev    next >
Text File  |  1992-11-06  |  439b  |  21 lines
  1. SYSTEM sieve;
  2. CONFIGURATION list [200];
  3. CONNECTION  (* none *);
  4.  
  5. SCALAR  prime    : INTEGER;
  6. VECTOR  candidate: BOOLEAN;
  7.  
  8. BEGIN
  9.    PARALLEL
  10.       candidate := id_no >= 2;
  11.       WHILE candidate DO
  12.          prime:= REDUCE.FIRST(id_no);
  13.          WriteInt(prime,10); WriteLn;
  14.          IF id_no MOD prime = 0       (* remove multiples *)
  15.             THEN candidate := FALSE
  16.          END
  17.       END
  18.    ENDPARALLEL
  19. END sieve.
  20.  
  21.